home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 December / macformat-057.iso / mac / Demos / The Magic City Demos / autodemo.mac / GENEDERO.DXR / 00001_STARTMOVIE.ls next >
Encoding:
Text File  |  1997-09-29  |  997 b   |  48 lines
  1. global couleursMoniteur, chemin, extensions, scrollPano, cheminInstall, musGen, cheminVoix, pan, panchanged, son1, son2, son3, son4, son5, joueSon, compteurGen
  2.  
  3. on startMovie
  4.   set compteurGen to 0
  5.   set scrollPano to 0
  6.   set the exitLock to 1
  7.   set musGen to 1
  8.   set joueSon to 1
  9.   set pan to 1
  10.   set panchanged to 1
  11.   set son1 to #rien
  12.   set son2 to #rien
  13.   set son3 to #rien
  14.   set son4 to #rien
  15.   set son5 to #rien
  16.   if the machineType <> 256 then
  17.     initRearWindow()
  18.     set couleursMoniteur to the colorDepth
  19.     set the colorDepth to 8
  20.   else
  21.     if the colorDepth <> 8 then
  22.       alert("switch your monitor to 256 colors")
  23.       quit()
  24.     end if
  25.   end if
  26.   set extensions to ".dir"
  27.   sound playFile 1, "@:musique:GEN.AIF"
  28.   set the keyDownScript to "controlQ"
  29. end
  30.  
  31. on controlQ
  32.   if the commandDown and (the key = "q") then
  33.     quit()
  34.   end if
  35. end
  36.  
  37. on villeGo
  38.   play movie "demodero.dir"
  39. end
  40.  
  41. on stopMovie
  42.   global musGen
  43.   if musGen then
  44.     sound stop 1
  45.     set musGen to 0
  46.   end if
  47. end
  48.